home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / fakecrt.arc / FAKECRT.PAS < prev    next >
Pascal/Delphi Source File  |  1991-08-28  |  581b  |  33 lines
  1. Unit FakeCrt;
  2.  
  3. Interface
  4.  
  5. Function ReadKey : Char;
  6. Function Keypressed : Boolean;
  7. Procedure Delay (ms : Word);
  8. Procedure Sound (Hz : Word);
  9. Procedure NoSound;
  10. Function RKey : Word;
  11. Function RKeyPressed : Boolean;
  12. Function SReadKey : Char;
  13.  
  14. Implementation
  15.  
  16. Uses
  17.     Dos;
  18.  
  19. Const
  20.     ExtraKey : Char = #0;
  21.  
  22. {$L FAKECRT.OBJ}
  23. Function ReadKey; external;
  24. Function KeyPressed; external;
  25. Procedure Delay; external;
  26. Procedure Sound; external;
  27. Procedure NoSound; external;
  28. Function RKey; external;
  29. Function RKeyPressed; external;
  30. Function SReadKey; external;
  31.  
  32. End.
  33.